www.gusucode.com > AspFaq在线帮助系统 V1.0 > AspFaq在线帮助系统 V1.0\code\Inc\Templet.asp

    <%
Dim Temps
'读取帮助分类
Function SHelpsCategoryList(Cstrs)
  sqlstr="select * from [Helps_Category] where Helps_Category_Show=0 order by Helps_Category_Order desc,Helps_Category_Id asc"
  rs.open sqlstr,conn,1,3
  while not rs.eof
    Helps_Category_Id1=rs("Helps_Category_Id")
    Helps_Category_Name1=rs("Helps_Category_Name")
    If Site_Type=0 Then
	  Helps_Category_Urls1=Site_Dir&"List.asp?id=" & Helps_Category_Id1
    ElseIf Site_Type=1 Then
	  Helps_Category_Urls1=Site_Dir&"Category_" & Helps_Category_Id1 & ".html"
    End If
    Temps=Cstrs
    Temps=replace(Temps,"{$HelpsCategoryName1$}",Helps_Category_Name1)
    Temps=replace(Temps,"{$HelpsCategoryUrl1$}",Helps_Category_Urls1)
    SHelpsCategoryList=SHelpsCategoryList&Temps
	rs.movenext
  wend
  rs.close
End Function
'读取帮助列表（分类，读取数量，排序方式）
'------------------------------------
'Categorys：分类
'	0：第一个分类
'	数字：该数字分类
'	-1：读取所有分类
'
'Nums：读取数量
'	0：读取所有
'	数字：读取数量
'
'Orders：排序方式
'	0：按排序来
'------------------------------------
Function SHelpsList(Categorys,Nums,Orders,Cstrs)
  If Categorys=0 Then
    sqlstr="select top 1 * from [Helps_Category] where Helps_Category_Show=0 order by Helps_Category_Order desc,Helps_Category_Id asc"
	rs.open sqlstr,conn,1,3
	If not rs.eof Then
	  Categorys=rs("Helps_Category_Id")
	Else
	  SHelpsList="暂无分类"
	End If
	rs.close
  End If
  If Categorys<>0 Then
    sqlstr="select"
	If Nums>0 Then
	  sqlstr=sqlstr&" top " & Nums
	End If
    If Categorys="-1" Then
      sqlstr=sqlstr&" * from [Helps] where Helps_Show=0 order by Helps_Id desc"
	Else
      sqlstr=sqlstr&" * from [Helps] where Helps_Show=0 and Helps_Category="&Categorys&" order by Helps_Order desc,Helps_Id asc"
	End If
    rs.open sqlstr,conn,1,3
    while not rs.eof
      Helps_Id1=rs("Helps_Id")
      Helps_Title1=rs("Helps_Title")
	  If Site_Type=0 Then
	    Helps_Urls1=Site_Dir&"Show.asp?id=" & Helps_Id1
	  ElseIf Site_Type=1 Then
	    Helps_Urls1=Site_Dir&"Html/Helps_" & Helps_Id1 & ".html"
	  End If
      Temps=Cstrs
      Temps=replace(Temps,"{$HelpsTitle1$}",Helps_Title1)
      Temps=replace(Temps,"{$HelpsUrl1$}",Helps_Urls1)
      SHelpsList=SHelpsList&Temps
	  rs.movenext
    wend
    rs.close
  End If
End Function
'读取搜索列表（读取数量，排序方式）
'------------------------------------
'Nums：读取数量
'	0：读取所有
'	数字：读取数量
'
'Orders：排序方式
'	0：按排序来
'------------------------------------
Function SHelpsSearchList(Nums,Orders,Cstrs)
    sqlstr="select * from [Helps] where Helps_Show=0 and Helps_Title like '%%"&Strs&"%%' order by Helps_Order desc,Helps_Id asc"
    rs.open sqlstr,conn,1,3
    while not rs.eof
      Helps_Id1=rs("Helps_Id")
      Helps_Title1=rs("Helps_Title")
	  If Site_Type=0 Then
	    Helps_Urls1=Site_Dir&"Show.asp?id=" & Helps_Id1
	  ElseIf Site_Type=1 Then
	    Helps_Urls1=Site_Dir&"Html/Helps_" & Helps_Id1 & ".html"
	  End If
      Temps=Cstrs
      Temps=replace(Temps,"{$HelpsTitle1$}",Helps_Title1)
      Temps=replace(Temps,"{$HelpsUrl1$}",Helps_Urls1)
      SHelpsSearchList=SHelpsSearchList&Temps
	  rs.movenext
    wend
    rs.close
End Function
'广告替换（广告ID）
Function SAds(CId)
  sqlstr="select * from [Ad] where Ad_Id=" & CId
  rs.open sqlstr,conn,1,3
  If Not rs.eof Then
    SAds=rs("Ad_Content")
  Else
    SAds=""
  End If
End Function
%>